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If vs If 
ActıonLıIst 
. KOL-MCK 


Components 


إعادة الاستجدام في دلفي: 


Interactive Delphi 
Reconstructor 


تمرين هذا العدد 
Flash Memory Filter/ Locker‏ 


Overload 
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, افتاحية: سجل النظام و اللغرات القانوئنية 

, إعادة الاستخدام في دلفي: الجزء الثاني -الإطارات 

KOL- MCK iie مکونات دلغفي:‎ , 

, مكونات دلفي: eک—j ActionList‏ 

, أوامر دلفي: ۴ا ضد عواع..if..then‏ 

Directive overload أوامر دٹضغي:‎ , 

IDR - Interactive Delphi Reconstructor :yûlدب برامج لھا علافة‎ , 


, حل نمرين العدد01 
, تمرين هذا اأعدد: ڊرمڇé Flash Memory Filter/Locker‏ 


www.delphi4arab.com 


مجله ماندی . لي للعرب D4A Magazine‏ 


العدد رقم : 02 لشهر يولير انا[ 10 20 


سجل النظام و التغرات القانوئية. 


حين نقوم بقراءة اتفاقية الاستعمال خلال تنصيب البرامح و بالنقر على زر موافق نصبح مربوطين و ملرمين 
بالشروط التي تم ذكرها في الاتفاقية. 

و من الطبيعي انه لا يسمح لنا بالتعديل في خيارات التسجيل للنسخ التجريبية بتاتا و أي تعديل يعتبر 
قرصنة للبرنامح و يعافب عليه القانون. 


و لكن ماذا عن النعديل في سجJ‏ اilزظlم Windows Registry‏ $ 


ملا عندنا برنامح يقوم بجحفظ عدد أيام استعماله في سجل النظام. و الاتفاقية الخاصة به تقول أن لا 
الحق في استعماله بصفة اهأ٣‏ رمدة زمنية محدودق فقط و علينا شراء النسخة الكاملة في حالة رغبة 
استعمال البرنامج بدون نجديدات. 
التعديل المباشر في قيم البرنامح أو في قيم ملفاته يعتبر إخلال بالاتفاقية و لكن في نفس الوقت نملك كل 
الحق في التعديل في قيم سجل النظام لأنه عند شراء نسخة من نظام تشغيل هل١1‏ ملا نملك الجق 
في حذف و نغیېر مغانتیجه. 
يعني حذف مفاتيح ال اأهأ٣‏ لأي برنامج قام بجحفظها هو في سجل النظام لا يعبر خرن للاتفاقية و 
القانون لا يعتبرنا مذنبين لان التعديل مس حق من حقوق حرية استغلال سجل النظام عند شراء نسخة من 
نظام التشغيل. 

الكانب: إدارة المنندى 
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الإطارات في دلفي عبارة عن حاوية لمجموعة مكونات يتم تحديد خصائصها و برمجة أحداثها. ونحفظ لكي 
یعاد استخدامها على نماذج ساشات التطبيق. 


توفر هذه الإطارات إمكانية تصميم وبرمجة المكونات ضمن الإطار لمرة واحدة. ثم نعيد استخدامها لأكثر من 
مرة في شاشات البرنامج مل أي مكون آخر. 

لنبدأ باستطلاع كيفية إنشاء إطار ۴۲۵۳۲ واختبار سلوكياته. ثم ننظر في كيف يمكن لهذه الإطارات أن 
تفيدنا و كيف توفر علنا الكثير من الجهد و الوقت. 

من خلال الأوامر ۴٠٤| ۱ ٥wW| ۴٣۵٣۴‏ نقوم بإنشاء نہوذج إطار جدید کما هو في الشکل 1) 


` Delphi é -Frojeci1 
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S&P Prirk... 
BF Exit 


الشكل 31) 
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وكما هو ظاهر فإن ساسة الإطار تشبه ساسة النموذج ۴٠۲۳‏ . و سيكون الإطار جاهزا كي نضع عليه ما سنا 
من مکونات. 
نضع على الإطار مکونات ملا من نوع غ¡ ۲٤‏ و ٥اط‏ ھا۲ و Butt ٥٣١‏ أیضا یمکن تغیبر لون الإطار وحجمه. 
کھا في الشكل 2 
iF Frame?‏ 


Label1 


Text1 
Button | 


الشكل ر2 
الآن بعد أن أنسأنا الإطار يمكننا مباشرة استخدامه. ووضعه على نموذج الشاشة. 
في شريط المكونات وفي صفحة £١0١١‏ نجد أول أيقونة فيه تمل الإطارات كما في الشكل 3). 
standard | Additional | win32 |‏ 


$ E 5 A [f 
Fame 


الشكل 3 
بواسطة الفأرة وبالضغط على هذه الأيقونة ثم على نموذج الشاشة ۴٠٥۲۳‏ سيظهر مريع به قائمة بالإطارات 
المتوفرة. الشكل 4 


Select frame to Inseri 


الشكل 4 
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نقوم باختيار الإطار من القائمة ثم موافق. فيتم حالا إدراج تجسيدا لهذا الإطار داخل نموذج الساسة مش أي 
مکون. یمکن أن نقوم بإدراج نجسیدا آخر للإطار كما في الشكل ,5) 


4 


Label1 


[Text1 
Button 1 


iF: Frame? لف‎ Ei x 


Label1 


Text! 
BuıtEan 1 


Label1 


[Text1 
û 
Button 1 | 


الشكل 5 
كما نرى في الشكل 5 لم نقم بإغلاق ساسة الإطار وذلك لغرض مراقبة سلوكها. 
أي تجسيد لإطار يرث خصانص الإطار الأصلي 


لو تأملنا ساشة الفورم سنجد أن نجسيد الإطار على الشاسة هو نسخة طبق الأصل من تصميم الإطار الأصلي. 
الآن. لو ذهبنا إلى الإطار الأصلي و غبرنا من خصائصه أو خصائص إحدى مكوذاته (تغيير حجم الإطار أو 
مكان الزر ملا سنلاحظ انعكاس هذا التغيبر على الإطارات في الفورم فورا. أي أن تجسيدات الإطار في 
الفورم ترث خصائص الإطار الأصلي وتتأثر بأي تغيبر يحدث على الإطار الأصلي. 

نسخة الإطار يمكن تعديل خصانصها متجاوزة الإطار الأصلي 

تجسيدات الإطار يمكن أن تنجاوز خصائص الإطار الأصلي؛ فلو ذهبنا إلى إحدى تجسدات الإطار في الفورم 
وحركنا مكان الزرأو الكتابة. فسنجدها تتغر وتستقل بخصائصها عن خصائص الإطار الأصلي. 
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لاسترجاع الخصائص الأصلية لأي مكون في نجسيد الإطار نقوم باختيار المكون ثم بالزر الأيمن للفأرة 
نستدعي لانجة الأوامر الفرعية ونختارالأمر Revert to Inherited‏ فيستعيد المكون خصائصه الموروثة 
التي كانت عليه في الإطار الأصلي كما هو مبين في الشكل (6) 


Label 


[Edit . 
a Futon 
 . 
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نريد لشاشات برنامجنا أن يكون لها لافتة عليا موحدة بها شعار البرنامج و إسمه. 


نقوم بإنشاء إطار جديد ونضع فيه المكونات المطلوبة كما في الشكل ,7). 


framEanner‏ ھا 


نظام ادار ة الكت و الدوريات 5 


الشكل 2 
الإطار به مکون ۲٣29٥‏ و مكون امھ اا . 


نسمی الإطار Fram Banner‏ ثم نقوم بحفظه یإسم 5هم.۸۸6۲ |٣82‏ . لاحظ أن ملف الإطار لایختلاف 


كيرا عن ملف أي ۴٥۲۳‏ في دلفي. في الواقع أنهما ينتميان لنفس العائلة. ولو تفحصنا ملف تعليمات 
الإطار سنجده يتشابه مع تلك التي لل .۴٥۲٣١‏ 


الآن بعد حفظنا للاطار يمكننا استخدامه على نماذج الشاسشات لدينا. نضع الإطار على النموذج. ونجعل من 
خاصية وا۸ - ٠٣1د‏ ليكون أعلى الشاسة. كما في الشكل (8). 


I@ Farrr1 | ت‎ E E 1 


نظام ادارة العتب و الدوريات ل 


5: E Forma TS TEES 


نظام ادا رة الكتب و الدوريات 9 ا 


E ® Forms 


نظام ادا رة الكتب و الدوريات ل کک 


الشكل )8 
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كما أشرنا أن جميع تجسدات الإطار ترث نفس خصائص الإطار الأصلي» كما أنها تستجيب وقتيا لأي تغيبر 
يطرأ على الإطار الأصلي ؛ ما لم نغير في إحدى خصائص مكوناته. فإن تلك الخاصية تحتفظ بقيمتها 
المحدلة. ونستطيع إرجاعها بإعادة المكون إلى صيغته الموروثة بالأمر Reve t٥ |٢٤٥۵‏ انظر الشكل 
(6). 


قليل من البرمجة 
يمكننا إضافة تعليمات برمجية غلى الإطار, ملا في الحدث )ا٤ہ‏ 0 کون 11٥۵ا‏ یمكننا إظهار مربع 
رسالة كما في الشكل (9). 


Z| \fmEanner.pas 
ا س ت‎ Uni | Init | LIrıtd mB anner + 
[ TframB anner (E E 
H-N Uses | implementation 


sR *.afmj 


|procedure TframEanner .Label1Click (Sender: ToOb3ğ3ect} ; 
begin 
showMessage ('"'تlıزرودلا '.تطظام إدارة الكتكت و‎ + ۴13 + 
'1 "تسةه‎ + #13 + 

;( '" .خقوق الطبع عقوظة 2010" 


Insert 


عندها فإن كل التجسدات لهذا الإطار يمكنها إظهار الرسالة عند النقر على مكون الكتابة. كما في الشكل 
)0( 
Form1‏ # 
نظام ادار ة الكت و الدوريات 9 


Praject1 


نظلم إذارة الكتب و الذي رات 


خقوق الطبع محغوظة 2010 


O) الشكل‎ 
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التعليمات التي كتبناها مجصورة فقط في الإطار الأصلي. أي أنه في نماذج الشاسات التي تستخدم هذا الأطار 

سوف لن تظهر هذه التعليمات. لكن يمكننا معالجة أي حدث لأي مكون في تجسدات الإطار. مثلاء لو ذهبنا 

إلى أي نموذج وضعنا فيه إطار. نجد أن الحدث )ا٣0‏ لمكون الكتابة غير مخصص. و لكننا إذا 
استدعيناه ستقوم دلفي تلقائيا بالتأكيد على مناداة التعليمات في الإطار الأصلي. مل التالي: 

procedure TForm1l. framBannerlLabel1Click (Sender: TOb ject); 

begin 


framBannerl. Label1Click (Sender); 
end; 


الآن إذا قمنا بإلغاء هذه التعليمة؛ فإن التعليمات في الإطار الأصلي لهذا الحدث سوف لن تنفذ. ونستطيع 
أن نكتب تعليمات بديلة تنفذ فقط على مستوى هذه النسخة من الإطار أو يمكن كتابة تعليمات قبلها لتنفذ 
أولا. ثم تعليمة الإطار الأصلية ثم تنفيذ تعليمات أخرى لاحقة كالتالي: 


procedure TForml. framBannerlLabel1Click (Sender: Tobject); 


begin 
framBanner1l.Color := clRed,; 
framBannerl. Label1Click (Sender); 
framBanner1l.Color := clWhite; 
end; 


حيث قمنا يتغيبر لون الإطار للأحمر. ثم استدعاء التعليمة الأصلية لإظهار الرسالة ثم إعادة الإطار إلى 
اللون الأبيض. 

ملخص 

تقدم الإطارات ۴۲۵٣٠5‏ صيغة قوية لإنساء مجمعات من المكونات المترابطة التي يمكن إعادة استخدامها 
أكثر من مرة. الإطار يمكن أن يكون نجميعا بسيطا لعدد محدود من المكونات. أو صيغة معقدة لمجموعة من 
المكوذات و التعليمات. يمكن أبضا استخدام مكونات قواعد البياذات داخل هذه الإطارات وريطها بالسيان العام 
للرنامج. راجح (المجلد | ۹0" 0۹۴۲۵ e٠"‏ 0) ضمن حزمة دلفي. 
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KOL-MCK :ٽiyکe‎ 


تعتبر هذه المكونات من ابرز المكونات التي تعالج مشكل كبر حجم الملفات التنفيذية في دلفي. حيث 
باستعمالها تجحصل على نانج بجحجم صعار جدا. مع الجفاظ على معحظم مهام المكبات الجاهرة ./€٤1‏ 
تدعم كل إصدارات دلفي إلى إصدار 0 20 الجالي مع اخذ بعبن الاعتبار ال ءإلهءاہلا. 


فام فریق منندی دلفي للعرب بعمل نسخهۀ 5۲۵۷ا dءاام P۲٣‏ نخص إصدار دلفي 7 و دلفي 2010 و 
برمجة أداة تسمح للمستعمل بتثبيت أو إلغاء تثبيت مكونات K01- N٣)‏ بدقة و سهولة متناهية. 

طريقة استعمال المكونات: 

يجب أن ننتبه إلى أنه لا يمكننا وضع مكون من القائمة مباشرة على ال ۴٠١۲۳١‏ الافتراضية لدلفي دون 
عمل بعض التعديلات عليها. لذا من أفض و أسهل الطرق الاعتماد على ل۷122 K01-MN٣)‏ في ذلك. 
على دلفی 7: 

نذهب إلي ٥ا۴‏ ثم سه ثم ۲٠ط‏ و في النافذة التي تظهر نذهب إلى تبويب كلها و نختار 
K01-MCK Project‏ wسeل.‏ و بعد هذه العملية يطلب منا القيام بحفظ ملفات المشروع. و هنا تنتهي 
عملية الإنشاء و یمکننا استغلال کل مكونات M٣)‏ -1 0× دون مشاکل. 


على دلفی 0: 
نذهب إل ٥ا۴‏ ثم New‏ ثم New K0L-MK Project‏ و نقوم بنفس عملية الحفظ للمشروع المذكورة 
فوق. 
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ملاحظة: التعامل مع مكونات 01-٣)‏ يختلف عن التعامل مع ا٤/۷‏ العادية من حيث خصائص المكونات 
المعروفة. ملا مكون "٠٣٠‏ لا تجتوي على خاصية 65" اا. 


PerList J| TEringList j مال:‎ 


var StrList: TStringList; 
begin 
StrList := TStringList. Create; 
StrList . Add ('Delph4Arab'); 
StrList . Add ('www. delphi4arab.com'); 
StrList. SaveToF ile (ExtractFilePath (ParamStr (0)) + 'Test.txt'),; 
StrList. Free; 
end; 


TSringList 


var StrList: PStrList, 
begin 
StrList := NewStrList;, 
StrList . Add ('Delph4Arab'); 
StrList . Add ('www.delphi4arab.com'); 
StrList. SaveToF'ile (ExtractFilePath (ParamStr (0)) + 'Test.txt'),; 
StrList. Free; 
end; 


PSrList 
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ActionList :jوکe‎ 


% 
vw 
™» 
-_ 
کے‎ 


من مزايا دلفي هي المكونات الجاهزة الاستعمال و التي لا تجتاج إلى كتابة سطر واحد من الأوامر. و من هذه 
المكونات. مكون #كأامه‌آاA‏ الذي يجنوي على مجموعة كببرة من ال A١١‏ المستعملة في اغلاب 
الأحيان. 


نجد مکون ایااہه‌اا A‏ في نبویب 2۲۵ل ھ٩.‏ 


standard | Additional | Winda | Suatem | Lata ACCESS | Lala Controls | AbEsprezz | DataSnan | BDE | TEIN | 


“= 


$ FF § AFR Hw FEF e RHQ 


ننشئ مشروع نجريبي و نصيف إلي4 مات .ActionList y Memo .Main Menu‏ 
SS‏ 


بالنسبة کون Main Meu‏ تقوم بإضافة فائمة باسم ۴d٤‏ جنوي على عنصرین مه٤‏ و ماج٥‏ 
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تجار المکون یآ۔اہہآا A‏ و تقوم بالنقر على الزرالأيمن للفأرة ثم ٺlitر .ActionList Editor‏ 


Action List Editor... 
Edit ۴ 
antral 
Position ۴ 
Flip Lhildren ۴ 
1 Tab Order... 


1 
sû Lreation Order... 


.New Sandard Actiثn ذهب إلى‎ 


J: Editing Form1.ActionList1 


Al - 
| Hew Action Ins | 
New Standard Aûction,,, LErl+Ins 
n 
من القائمة.‎ EditCopY/TEdiEP aste acti 0۸ تخار إضافة‎ 


۳ : Standard Action Classes 


4 Yalable Action Llazsez: 


=1: [Mo Category] پو‎ 
TActon 

=1: Edit 
TEAL 


TEdIPaslte 
TEdIS electAll 
TELIA 


TEdIDelete 


۳ : Standard Action Classes 


ûYalable Action Llazsez: 


=1: [Mo Lategory] ب‎ 
TActor 
=1: Edit 


TEAC ut 
TEAILOpY 
TEditFaste 
TEAS electAÃll 
TEdtlnda 
TED eleste 
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نتأكد من انه تم إضافة الخيارات التي اخترناها 


2 Editing Form1.ActionList1 
A 


Lalteqorlez: û ctlorz: 


o Categor Editfopy1 
EditPasktel 


الآن ذهب إلى مکون Main Neu‏ و نتوجە إلى فائمة جدیدة ال٤‏ جنوي على عناصر ع اھ )٥p۷/۲‏ 


Object TreeY¥iey 
: / Formî 
ëË Unit1 


| Famî 
=1 ActionListl 1:1 Form1.MainMe 
Iy E OOOO SB val PF 
E E ditCopyÎ ic mel FE ad 
ا‎ EdıiPastel Copy Ctrl+C 
= 3 Main eruıl 


=3; Edit {E dirî} 
i Lopy {Copy1} 


1 Paste trl 


ت 

Object Inspector E 
|Copyî bi 
Properties | Events | 


| Aztlan 
û utoLheck 
ûutoHotkeys |(EdlPaslel 


ونذهب إلى خصائص كل عنصر و في خيار ١ا۸‏ نرفع ال ١٠ا۸‏ المناسبة للمثال التجريبي. 


EditCopy1 
EditPast1 


Copy + Action : 
Paste FF Action : 
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بعد تجربة تسغيل المشروع نلاحظ أن عملية النسخ و اللصق تشتغل بنجاح دون كتابة أي أمر ال.كا۷ع۴. 


Lopy LErl+ 
Paste Erl+Y 


=1: [Mo Lategory] 


TEAICut 
TEAILopY 
TEAIPaste 
TEAS eElectAll 
TEdnda 
TEdIDEletE 


=1: Format 


TRIchE AB ald 
TRiIchE dill talic 
TRichE dtn derlinê 
TRILRE AtS trike ut 
TRichE dB ullets 
TRIchHE dtdlianLeft 
TRIcHE dtdlianRight 
TRichE dtélanLenter 


=1: Help 


THelpLontents 
THelpT opicS earch 
THelpUnHelp 
THelpLontextéction 


=1 IPD 


TWindowLlasE 
TwWindomL-ascade 
TwWindowT leHorlzorntal 
TWindow Tile ertical 
TWindowMinirnize#ll 
TindoamArran gE 


TFilellpen 
TFI perwith 
TFileS aYaAz 
TFilEPrIntS etup 
TFileFPageS etuIp 
TFileRun 

TFileE #It 


Paste LErl+ 


=1: Search 
TSearchFind 
TSearchFndH ent 
TSearchReplacEe 
TSearchFindF Irst 

=1: Tab 
TPreYIlous Î ab 
THentT ab 

=1: List 
TListLontralLopyS elector 
TLIstLontralDeleteS elector 
TListLontralS 2lecbکll‎ 
TLIstLontralLlearS elector 
TListLontralMayeS elector 
TStaticeListk,ctar 
TYirtualLIstê,cton 

-1: Dıalog 
TUpenPicture 
TSayvePicture 
TLolorS elect 
TFontE dit 


TPrntDla 
=1: lnternek 


TBrowselRL 
TDownLoadlRL 
TSendhtall 
=1: Dataset 
TDataSeltFirst 
TDataSetPriar 
TDataS et ent 
TUataSeltLasl 
TO ataSetlnsert 
TOata5etDelete 
TOata5 aE dit 
TOataS5etPost 
TOata5etLancel 
TOataSetRelfresh 
TLlentÛ ata ekÃpply 
TLlentDataS etR eYert 
TLlentD ata etlndoa 
=1: 1 اد‎ 
TLustormlzeéztlonB a13 


قانمة بكل ال5١‏ !ا A‏ الموجودة في مکون یا Ack!٥۸1‏ 
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اوا ردلني -بة 
iif (immediate if) —~‏ 


ص ل 


If...then...else 


استزادا من لغات برمجة أخری مل ھ6 اهنوا ۷ سنجاول استبدال الأمر الشرطی المOحروف‏ ‰۵ا٥. ۴.٤٣٥٣‏ 
بأمر شرطي آخر و هو معرف أیضا باسم ۴¡ ٥٤ھ |٣٣٥۵‏ و یکتب ۴اا بإضافة ¡ إلى fا.‏ 


هيكل الدالةه: 


function iif ( 
Expression: boolean, 
TruePart: type, 
FalsePart: type 


): type; 
Boolean و ھو من نوغ‎ Condi t٥٣ التعبیر الشرطي أو‎ : Expression 
القيمة المرجعة في حالة نجحقق الشرط و نوعها غبر معين.‎ :آruعPa‎ 
ه۴: القيمة المرجعة في حالة عدم نحقق الشرط و نوعها غبر معين.‎ Part 
:!۴..٤٣٥٣۸ بقة الكتانة الشرطة العادية ماع.۰‎ 
if a = b then 
Label1.Caption := °`öةlوږواlسuم أتوجد‎ 
E Soo lua N 
:iصصمإdاia مخ‎ ¡f طريقة الكتابة الشرطية باستعمال دالة‎ 
Label1.Caption := iif (a = ض٥۵,‎ ١ةاواسم لا توجد مساواة١ ,'توجد‎ (۶ 
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نعريف الدالة و إعطانها توغ 9٣١٣؟:‏ 


string) : string; 


نعريف الدالة و إعطانها توغ ا#وعا١!:‏ 


integer) : integer; 


طريقة الاسندعاء: 


'Error')); 


0)))7 


TruePart, FalsePart: 


TruePart, FalsePart: 
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function iif (Expression: boolean; 


begin 
1f Expression then 
Result := TruePart 
else 
Result := FalsePart;, 
end; 


function iif (Expression: boolean; 


begin 
1f Expression then 
Result := TruePart 
else 
Result := FalsePart;, 
end; 


ShowMessage (iif (TestEdt. Text = '123', 'Sucess'", 


ShowMessage (IntToStr (iif (TestEdt. Text = '123', 1, 


يمكننا كنابة مجموعة من الدوال تدعم أنواع مخالفة من المنغيرات و تحمل نفس اسم الاستدعاء و جعل ال 
٣جاامmه‏ الخاص بدلفي هو الذي يختار دالة المعالجة حسب نوع البراميترات الممررة. يكفي فقط إضافة 
directive‏ oadاverه‏ إلى دوال المعالجة . (امقل اللي يتحدث عن الفكرتم 
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Directive: Overload 


في بعض الجالات نجتاج معالجة معطيات من أنواع مختلفة مل نوغ وہ آ٣‏ امو ہا أو غبرھا عن طريق 
دالة واحدة دون الجاجة إلى نغيير اسم استدعاء الدالة إl iif tring, iiflnteger, iifReal‏ .... و 
الجل يكمن في م۷آامءال نجعل ال ١ءاأم‏ ٣ه‏ الخاص بدلفي يجار حسب نوع البراميتر الممرر الدالة 
المناسبة لعالجة المعطيات حى و إن كانت نحمل نفس اسم الاستدعاء. هذه ال ۷٥١‏ اما تسمى 
.overload‏ 


مال توضيجي: من وحدة ءااالاورك ناخد دالة النجویل ٥)۲‏ ااا التي نستعملها في اغالب الأحيان و هي 
تقبل نوعین مختلفین من البرامیترات ۲م‌وعم| و ۲64,|. و یظهھر خیار الرامیتر تلفائیا عند فیح فوس 
إدخال البراميترات. صوره1 0 : نلاحظ ظهور نوعين مخاافين. 

IntToStr I] 


Value: Integer 
Value: Into4 


صورة1 0 


و لو اطلعنا على مجتوى وحدة ءاأالاور سوف نلاحظ أن كر من الدوال تحمل نفس اسم الاستدعاء. و 
الخيار بينها يقوم به ال ١ءاأم۳ه)‏ بفجص نوع البرامير أولا قبل استدعاء الدالة. إذا كان النوع 
inte‏ يستدعي الدالة الأولى و إن كان النوع |١۲64‏ يستدعي الدالة النانية. صورة 02 


Function Int TIoOSTLE (Value: Integer} : sLltring: Overload; 
Function Int IoOSBLtErE (Value: Intét]l : string: overload; 
02 صورة‎ 
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و لفهم العملية بصورة تطبيقية ننشئ مشروع جديد ثم نأخذ نفس الال الخاص بدالة fآأ.‏ صورة03 و04 


e A 


function 1iif (Expression: boolean; TruePart, FalsePart: string) : string; overload; 


begin 
1f Expression then 
Result := TruePart 
else 
Result := FalsePart;, 
end; 
03 صورة‎ 
function 1if (Expression: boolean; TruePart, FalsePart: integer) : integer; overload; 
begin 
1f Expression then 
Result := TruePart 
else 
Result := FalsePart;, 
end; 
04 صورة‎ 
05 نصيف طريعه الاسدعاء. صوره‎ ۲٥81١ فی حدت )ا٣ 0 الجاص بالرر‎ 
ShowMessage (iif (TestEdt. Text = '123', 'Sucess', 'Error')); 
ShowMessage (IntToStr (iif (TestEQdt. Text = '123', 1, 0))); 


صورة 5 0 


نضع نقطة توقف على إجراء موهوه سه1 الأول و الثاني ثم نشغل المشروع و ننقر على الزر 
"e1‏ و عند توقف دلفي نقوم بالنتبع باستعمال مفتاح ۴7. صورة 06 


procedure TForml. Te2TtEtnLIlIick[BENAEE: Tp jeECL] ; 
hejin 
ا‎ : (iif{TesTEQAT. Text = 'lZ3', SUCCESS EET 


2howH 5 {[(IntToStr (iif TESTEAL. Text = کت‎ E 
end; 


صورة 5 0 


نلاحظ أن ال ١ءاأم٠٣ه)‏ بعد فجحصة للبراميترات يستدعى في كل مرة الدالة التي تقبل نوع البراميتر 
الممرر. 
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برامج لها علافة بدلفي- بقلم 
Interactive Delphi Reconstructor‏ 


Interactive Delphi Reconstructor 


» + «ھ 


ذبذة عن الأداة: 

۴R‏ هي عبارة عن أداة قيد التطوير من برمجة ٥٠٤م‏ راء لتفكيك الملفات التنفيذية المبرمجة بدلفي 
لخرص نجليلها و الجصول على اكبر عدد من المعلومات عن الملف المفكوك. 

تعتبر الخلف الجيد للأداة المشهورة 0٥5٠‏ بعد توقف مبرمجها عن تطويرها. 


رابط النجميل: 


http: //kpnc.org/idr32/en/index. htm 


EntryPoint 
push ePbX# 
push PS1 
mnoy Pax, P3C5EH; quar _ BOS3CSBH:Pointer 
nalı ehx,dword ptr d5:[5HAB9C]; Application :TApplication 
nalı esi,dword ptr d5s:[5HAC3C];  qvar_BQAEHDA?ŞBA:TFrFNSpLlash 
may ecx,dword ptr [ebx ] 
mOoy dil, 1 
may Pax, [ B؟388E8‎ |]; TFrmSplash 
call TCusTtonForm.Crealte; TFrmSplash Create 
mo dword ptr [esi ],eax 
may eFax ,dword ptr [esi ] 
call TCusTOMF oF Mm .ShOYL 
may Pax ,dword ptr [esi ] 
moy eڳdx,dword‎ ptr [eax] 
call dword ptr [edx#+88]; TWinControl Update 

} jmp AOS3CQHC 

AASI3CIHE moy eax ,dword ptr [ebx] 
call TApplication .Processhessaqges 
AAS3LCFIHC may Pax ,dword ptr [esi j] 

may Pax ,dword ptr [eax+2FC | 
cmp byte ptr [eax+48],8 

jne AACN 
moy eax ,dword ptr [ebx ] 
call TApplication Initialize 
may eax ,dword ptr [ebx ] 
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LInits [FZ] RTTI [F4] Farms [FS] 
* Text Form 

TABSPASSDPIALOG 

TFRHPOYNF ILE 

TFRHEDI THEY 

TFRHHAIH 

TFRHHSG 

TFRHSPLASH 

TFRHYAIT 

TLOGINDIALOG 

TPASSWORDDIALOG 
Units [FA] RTTI [F4] Forms [F5] LInits (F2) PITIIFA4 Forms [FF] 
BBHB1BBB #OB2 IF system 0F B#B»B1 BBB <Enuneration> Boolean 1 
AAHAĞGBHY HOOT SySInit AAYA1828 <Char? Char 1 
AAHAoGFFHY #HOAS3 ?Unit3 BAHYA1A3C <Integqer? Smallint 
BALA6GROC HABH Wi ndoaus AALO1 EH <Integqer#? Integer 
AAHOF6SH HOOS ?UnitS AOHBTOĞC <Integerz Byte 
BALHAF6EC HBA? SysConst ABB? BF Û Integer + Word 
ABHBFASH HBOS IF SysUtils ABLO1 FH <Integqer# Cardinal 
gonoF 104 #009 1 uaruti1s ا‎ 
ABYOF934 HOH IF Wariants AB»B1BD8 <Float> Currency 
U E ES BOHB1BES <insiString> String 
BBHIBSZDL #BTZ2 F TypInto ABLB1BF!4 <WideString> WideString 
BOH19CHS HOG ?lUnité AAHB118% <Uariant> Variant 
AHHIFCAH HO13 IF Classes AAYB1168 <E1la5ss> TOb ject 
HOHZG FDS HO19 Cansts AAYB1188 <InterfFace> IInterface 
AAHYZ6AFSE HOZA IF Graphics ABHETZ08 <DyniArray+ TBoundAirray 
AAHZFFOD HATH Math AAYA1298 <Float? TDateTime 
AOHZFBEN HOTS Contnrs AHBÖBÖOC <Integer? HYHD 
BBY?FEIRE HB18 ConnCtr 1l BBYÛ688A <Enuneration? ?lUnit} . 1 
BALO HOF I HultiHon dO? 3 Û sel? TOuwnerDrauwstate 
BBLTOAFERE HA?7? *Unit?? AdHYOAFASH <Ans1STtrIng# TFIlePHane 
BBH3B7FB H#B16 F HelpIntfs AALOFAĞÖH <Record?# TIsearchRec 
AAN317ER HB33 z*Unit33 AAHOFAEC <Cla5ss? NN 
ABL318LB HB F Printers AOHOBHFHY <DyniArray+ FlUnlt8 f14 
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LCodeyiewer [FE] Classwiewer [FF] Strings [F8] 


OANFEBL Resting "*z' ls nol a Yalld Inteqer Yale’ 
UAUFELA4 $ResStringt "Fz" ls nol a valid Hoaling point Yale! 
UAUFEBLL $ResStrng? "*s' ls nol a alld curreney YalJe' 
UUAUFED4 $ResString? "*z' ls not a Yalld date' 
UAUFEBDL $ResString? "#2" ls not a Yalld HrnE' 
UMAUFBE4 $ResStringt "Fz" ls not a valid date and Hme' 
UNAUFBEL $ResString "Fd. d' ıs nol a Yalıd Hmestamp' 
UUAUFEF4A $ResStringt "Fz" ls not a Yalld UID wale! 
UUAUFEBFL $ResStrna> Invalid argaurnent ta Hme encode’ 
UUAUFFUA4 $ResString?t lnvalld argument to dale encodEe' 
UUAUFFUL $ResStringt ut of memory’ 

UUAUF714 $ResStringt U error Fd" 

UAUFTIL $ResStrinat ‘File not found’ 

AUF FA4 $ResString> Tnvald filenarnE' 

UAUFFAL $ResStringt Too many open lez! 

UUAUF734 $ResStringt File access denled' 

UAUFTIL $ResStrina: ‘Read beyond end of file’ 
UNFFA4A4 $ResStrings ‘Disk Full 

UAUFFAL $ResStringt lnyalld numeric Input 

UUAUF7FD4 $ResString> Division by zero’ 

UUAUFFTBL $ResStrinat Range check error 

UNA4UFFE4 $ResString> Integer oYerflonwy' 

UNAUFFEL ResStringt Invalid Hoating poınt operation’ 
UUAUF77A4 $ResString: Floating polnt division by zero’ 
UAUFTFL $ResStringt Floating point oYerflauy' 
UUAUF#FB4 $ResStringst Floating point underflonwy' 
UAUFFSL ResStringt Invalid pointer operation’ 
UUAUF7I4 $ResStringt Invalid class Wpecasl' 

UAUFTIAL $ResStringaè Access violation at address Fp. *3 of address *p' 
AUF A4 Resting Access violation’ 

AUF FAL $ResStrngs Stack overflowy' 

UUAUFFB4 $ResStrings Control hit’ 

UAUFFBL $ResString? Privileged Instructor’ 

AUF FL4 $ResStringa:s Uperaltion aborted! 

UAUFFLL $ResString? '‘E#cepton *2 In module #s al Fp. si Se! 
AUTO $ResString? Application Error’ 


About... 2 


Application: IDR By crypto 


Yersion: 21.1.33 
My respects to: 


GDaFixer for wonderful program DeDe 

Alexey Hmelnov for nice utility deu3aint and open source code 
SVLab for continual IDR testing, help and site creation 
sendersu for IDR FormYiswer assistance 


Kris Kaspersky for IDR hosting 


E -rmall: 


Harmepagë: 
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نظرة عل ڍر مڇ Delphi Wizard/Expert‏ 


كان المطلوب في تمرين العدد رفم01 من مجلة دلفي للعرب. محاولة برمجة أداة تدمج في واجهة التطوير 
الخاصة بدلفي. 


حل النمرين: 

بالنسبة لسخص الذي يقوده حب الاستطلاع إلى تصفح مجلدات التنصيب الخاصة بدلفي سيكتشف ما يسره 
من أمثلة و وحدات جاهزة الاستعمال تعالج معظم ميادين البرمجةء و من ضمنها وحدة أو وحدات تجتوي على 
دوال تسمح لا بدمج أدوات في واجهة التطوير. 


:Exptintf.pas dz, 
مسارها الافتراضي:‎ 


XxX: \Program Files\Borland\Delphi 7\Source\ToolsAPI 
XxX: \Program Files\Embarcadero\RAD Studio\ 7. 0\source\ToolsAPI 


نحتوي على مجموعة من تعريفات الدوال التي نجتاجها في هذا التطبيق. 


public 
{ Expert UI strings J} 
function GetName: string; virtual; stdcall; abstract; 
function GetAuthor: string; virtual; stdcall; abstract; 
function GetComment: string; virtual; stdcall; abstract; 
function GetPage: string; virtual; stdcall; abstract; 
{ŞIFDEF MSWINDOWS } 
function GetGlyph: HICON; virtual; stdcall; abstract; 
{ŞENDIF} 
{ŞIFDEF LINUX] 
function GetGlyph: Cardinal; virtual; stdcall; abstract; 
{ŞENDIF} 
function GetStyle: TExpertStyle; virtual; stdcall; abstract; 
function GetState: TExpertState; virtual; stdcall; abstract; 
function GetIDString: string; virtual; stdcall; abstract; 
function GetMenuText: string; virtual; stdcall; abstract; 


{ Launch the Expert } 
procedure Execute; virtual; stdcall; abstract; 
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التعريف بالدوال: 


This is the declaration of the pure-virtual base class for the expert 
interface within the Delphi IDE. 


NOTE: In Delphi 1.0, the GetGlyph function used to return an HBITMAP, 
whereas now it must return an HICON. 


GetName -— REQUIRED. This must return a unique descriptive name 
identifying this expert . 


GetAuthor -— REQUIRED is style is esForm or esProject. This should 
return the "author" of this add-in/expert. This could 
be a person or company, for example. This value will 
be displayed in the Object Repository. 


GetComment — REQUIRED if style is esForm or esProject. This should 
return a 1 - 2 sentence describing the function of this 
expert. 

GetPage -— REQUIRED if style is esForm or esProject. Should return 


short string indicating on which page in the repository 
this expert should be placed. NOTE: The user can still 
override this setting from the Tool | Repository dialog. 


GetGlyph - REQUIRED if style is esForm or esProject. This should 
return a handle to a icon to be displayed in the form or 
project list boxes or dialogs. Return 0 to display the 
default icon. 


GetStyle -—- REQUIRED. Returns one of four possible values: 
esStandard —- Tells the IDE to treat the interface to 
this expert as a menu item on the Help 


menu. 

esForm - Tells the IDE to treat this expert interface 
in a fashion similar to form templates. 

esProject - Tells the IDE to treat this interface in a 
fashion similar to project templates. 

esAddIn - Tells the IDE that this expert handles all its 


own interfacing to the IDE through the 
TIToolServices interface. 


GetState -— REQUIRED. If the style is esStandard, esChecked will cause 
the menu to display a checkmark. NOTE: This function is 
called each time the expert is shown in a menu or listbox in 
order to determine how it should be displayed. 


GetIDString ¬ REQUIRED. This ID string should be unique to all experts 
that could be installed. By convention, the format of the 
string is: 

CompanyName . ExpertFunction, ex. Borland. WidgetExpert 


GetMenuText —¬- REQURED if style is esStandard. This should return the 
actual text to display for the menu item. NOTE: This 
function is called each time the parent menu is pulled-down, 
so it is possible to provide context sensative text. 


Execute — REQUIRED if style is esStandard, esForm, or esProject. 
Called whenever this expert is invoked via the menu, form 
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repository dialog, or project repository dialog. The style 
will determine how the expert was invoked. This procedure 
1s never called if the style is esAddIn. 


TExpertInitProc ¬ defines the number and types of parameters passed to the 
single exported entry-point to the expert DLL. 
ToolServices —- a pure-virtual class containing all the 

tool services provided by the IDE. 

RegisterProc ¬ The function to call in order to register 
an expert. NOTE: This function is called 
once for each expert instance that the DLL 
wants to register with the IDE. 

Terminate -— Set this parameter to point to a procedure 
that will be called immediately before the 
expert DLL is unloaded by the IDE. Leave 
nil, if not needed. 


وحدة اروغ :WizardTestP roject‏ 
1 نقوم يإنشاء وحدة جديدة باستعمال أداة ١‏ مه متلا و نعرفها بهذه الطريقة: 


unit WizardTestPro ject; 
interface 
uses 

Windows, ExptIntf; 


Type 
TWizardTest = class (TIExpert ) 
public 


function GetStyle: TExpertStyle; override; 
function GetlIDString: string; override; 
function GetName: string; override; 
function GetMenuText: string; override; 
function GetState: TExpertState; override; 
procedure Execute; override; 

end; 

procedure Register; 


1mplementat ion 


implementati0n Jبأ‎ sjزج‎ 


uses MainFrm ;‏ 
2 ثم نضيف تعريف لوحدة ۸۴۲۳ ج1 و هي عبارة عن ٤ہ‏ لا مع ۴٣۲۳‏ مستقلة فارغة لا نجتوي على 
أوامر وضعت كمال و التي سوف سیتم استدعاءها في حدث ما cuم×E‏ لاحقا. 
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3 و أخبرا نكمل بإضافة الإجراءات و الدوال الثالية: 


procedure Register; 

begin 

RegisterLibraryExpert (TWizardTest . Create) 
end; 


function TWizardTest.GetStyle: TExpertStyle;, 
begin 

Result := esStandard; 
end; 


function TWizardTest.GetIDString: String; 
begin 

Result := 'First. TWizardTest'; 
end; 


function TWizardTest. GetName: String; 
begin 

Result := 'Wizard Test Sample'; 
end; 


function TWizardTest . GetMenuText: String; 
begin 

Result := '&Wizard Test Sample'; 
end; 


function TWizardTest.GetState: TExpertState; 
begin 

Result := [esEnabled]; 
end; 


procedure TWizardTest . Execute; 
begin 
with TWizardExpertTest. Create (nil) do 
begin 
ShowModal; 
Free; 
end; 

end; 
end. 


www.delphi4arab.com 


مجله ماندی . لي للعرب D4A Magazine‏ 


العدد رقم : 02 لشهر يولير yاا[‏ 10 20 
4 بعد الانتهاء من حفظ الوحدة باسم eC‏ زە Wizard ۲ 5P‏ بامتداد sھم‏ طبعا تقوم بانساء 
15ya MainFrm‏ 0 


MainFrrm 


interF[Face 


uses 
Wino Trz , 
MezzafqEsz, 


awaUtila, Û © 0 8 


ClaSS3E3, [l.cs 


SEDO Ec Sars Ea SSE e BS 


a DB 
orm, lS elphi Wizard Sample: 
. „RS 


Dialofza, 
CENCE ESE GICAL TCT OTIC TOC 
EIELCEEF LST 


LypeE 
TVWizardExpeErt Test = class TForFm] 
DLbHlLI: TLabeE l1l; 
WizarALpbl: TLabel; 
LinEPnl: TPanel; 
Private 
1 Gêrzfaratîionz privêeag j 
pub Lic 
1 Pêrfarationrza publigueg J 
end; 


TAFE 
WizarAExpert Test: TVUizardExpert Teast; 


imp Lement at ion 
{$ER *.Afm} 


Fn . 


صورة1 0 


N 


5 نقوم بتنبیت الوحدة Ct‏ مزه 12۲۵۲65۲۴ کمکون جدید بنفس طريقة تنبیت مکونات دلفي (رجع طريقة 


تثبیت مکونات دلفي في مواضیع منتدی دلفي للعرب) 
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6 اللييجة: 


[cNones >| FY 2 


mrmar Control: ¥ Delphi Help 


A [abl = ا‎ Delphi Tools 


windows SOK‏ ا 


l5 Windom | Help 


Borland Horne PaqE 

Borland Developer Nebwork 

Delphi Horne Page 

Delphi LeYelaper Support 
E Delphi Direct, 


0 Wizard Test Sarnple 


_USEOMİZE,,, 


D-on: Wizard Sample 
00000-0000 


ملاحظة: عند إنشاء وحدة ۲مم×E‏ بخيارات افتراضية دلفي يقوم بإضافة الوحدة في جهة ما1٨‏ و في 
حالة رغبة إضافة الوحدة في مكان محدد. وامه٣‏ ملا يجب علينا إضافة أوامر تقوم بذلك لكي لا يتم 


توجيه الوحدة افتراضيا بعد تنبيتها إلى جهة مام١.‏ 


ReferenceMenuItem := MainMenu. FindMenultem ('ToolsOptionsltem'); 
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Flash Memory Filter/Locker éڇeرڊ‎ 


⁄4 


المطلوب: 

برمجة تطبيق يقوم بتتبع إيصال اه٠‏ ها۴ بالجهاز و يظهر رسالة للمستخدم تعلمه بذلك مع 
خیار فح ا Flash Memory‏ أو عدمه. 

إضافة خيار )>ها. قفل ال Noy‏ ها۴ و منع الدخول إليه. 


بالتوفیق إن ساء الله 


لمشاركتك في مقالات المجلة. أرسل فقط المقالة بصيغة 00٥‏ أو ٥>>‏ دون تنسيق مسبق إلى إدارة المنتدى 
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